home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / xf2.3-p / xf2 / xf2.3 / src / xffontBox.tcl < prev    next >
Encoding:
Text File  |  1993-11-20  |  21.7 KB  |  679 lines
  1. # XFNoParsing
  2. # Program: template
  3. # Description: font selection
  4. #
  5. # $Header: xffontBox.tcl[2.4] Wed Mar 10 12:05:51 1993 garfield@garfield frozen $
  6.  
  7. global xfFontBox
  8. set xfFontBox(activeBackground) ""
  9. set xfFontBox(activeForeground) ""
  10. set xfFontBox(background) ""
  11. set xfFontBox(font) ""
  12. set xfFontBox(font-demo) "This text shows the results :-)"
  13. set xfFontBox(kanjifont-demo) "ñ│ñ∞ñ¼ñ╜ñ╬Ñ╒Ñ⌐Ñ≤Ñ╚ñ╟ñ╣íú"
  14. set xfFontBox(foreground) ""
  15. set xfFontBox(scrollActiveForeground) ""
  16. set xfFontBox(scrollBackground) ""
  17. set xfFontBox(scrollForeground) ""
  18. set xfFontBox(fontName) ""
  19. set xfFontBox(fontFamily) *
  20. set xfFontBox(fontPixels) *
  21. set xfFontBox(fontSlant) *
  22. set xfFontBox(fontSWidth) *
  23. set xfFontBox(fontWeight) *
  24. set xfFontBox(resource) "font"
  25.  
  26. proc XFFontBox {{xfFontBoxFileFont "/usr/local/lib/xf/lib/Fonts"} {xfFontBoxResource "Font"} {xfFontBoxEntryW ""} {xfFontBoxTargetW ""}} {# xf ignore me 5
  27. ##########
  28. # Procedure: XFFontBox
  29. # Description: select a font
  30. # Arguments: {xfFontBoxFileFont} - the font file with all fontnames
  31. #            {xfFontBoxResource} - the resource to modify
  32. #            {xfFontBoxEntryW} - the widget name for the resulting font name
  33. #            {xfFontBoxTargetW} - the widget we configure
  34. # Returns: fontname, or nothing
  35. # Sideeffects: none
  36. ##########
  37. # 
  38. # global xfFontBox(activeBackground) - active background color
  39. # global xfFontBox(activeForeground) - active foreground color
  40. # global xfFontBox(background) - background color
  41. # global xfFontBox(font) - text font
  42. # global xfFontBox(foreground) - foreground color
  43. # global xfFontBox(scrollActiveForeground) - scrollbar active background color
  44. # global xfFontBox(scrollBackground) - scrollbar background color
  45. # global xfFontBox(scrollForeground) - scrollbar foreground color
  46. # global xfFontBox(scrollSide) - side where scrollbar is located
  47.  
  48.   global xfFontBox
  49.   global tkVersion
  50.  
  51.   set xfFontBox(fontName) ""
  52.   set xfFontBox(fontFamily) *
  53.   set xfFontBox(fontPixels) *
  54.   set xfFontBox(fontSlant) *
  55.   set xfFontBox(fontSWidth) *
  56.   set xfFontBox(fontWeight) *
  57.  
  58.   set tmpButtonOpt ""
  59.   set tmpFrameOpt ""
  60.   set tmpMessageOpt ""
  61.   set tmpScrollOpt ""
  62.   if {"$xfFontBox(activeBackground)" != ""} {
  63.     append tmpButtonOpt "-activebackground \"$xfFontBox(activeBackground)\" "
  64.   }
  65.   if {"$xfFontBox(activeForeground)" != ""} {
  66.     append tmpButtonOpt "-activeforeground \"$xfFontBox(activeForeground)\" "
  67.   }
  68.   if {"$xfFontBox(background)" != ""} {
  69.     append tmpButtonOpt "-background \"$xfFontBox(background)\" "
  70.     append tmpFrameOpt "-background \"$xfFontBox(background)\" "
  71.     append tmpMessageOpt "-background \"$xfFontBox(background)\" "
  72.   }
  73.   if {"$xfFontBox(font)" != ""} {
  74.     append tmpButtonOpt "-$xfFontBox(resource) \"$xfFontBox(font)\" "
  75.     append tmpMessageOpt "-$xfFontBox(resource) \"$xfFontBox(font)\" "
  76.   }
  77.   if {"$xfFontBox(foreground)" != ""} {
  78.     append tmpButtonOpt "-foreground \"$xfFontBox(foreground)\" "
  79.     append tmpMessageOpt "-foreground \"$xfFontBox(foreground)\" "
  80.   }
  81.   if {"$xfFontBox(scrollActiveForeground)" != ""} {
  82.     append tmpScrollOpt "-activeforeground \"$xfFontBox(scrollActiveForeground)\" "
  83.   }
  84.   if {"$xfFontBox(scrollBackground)" != ""} {
  85.     append tmpScrollOpt "-background \"$xfFontBox(scrollBackground)\" "
  86.   }
  87.   if {"$xfFontBox(scrollForeground)" != ""} {
  88.     append tmpScrollOpt "-foreground \"$xfFontBox(scrollForeground)\" "
  89.   }
  90.  
  91.   set xfFontBoxTmpFileFont $xfFontBoxFileFont 
  92.   # get font file name
  93.   if {!([file exists $xfFontBoxFileFont] &&
  94.         [file readable $xfFontBoxFileFont])} {
  95.     set xfFontBoxFileFont ""
  96.   }
  97.   if {"$xfFontBoxFileFont" == ""} {
  98.     global env
  99.     if {[info exists env(XF_FONT_FILE)]} {
  100.       if {[file exists $env(XF_FONT_FILE)] &&
  101.           [file readable $env(XF_FONT_FILE)]} {
  102.         set xfFontBoxFileFont $env(XF_FONT_FILE)
  103.       }
  104.     }
  105.   }
  106.   if {"$xfFontBoxResource" == ""} {
  107.     set xfFontBoxResource "Font"
  108.   }
  109.   set xfFontBox(resource) [string tolower $xfFontBoxResource]
  110.  
  111.   # save the the current widget color
  112.   if {"$xfFontBoxTargetW" != ""} {
  113.     if {[catch "$xfFontBoxTargetW config -$xfFontBox(resource)" result]} {
  114.       set xfFontBoxSavedFont ""
  115.     } {
  116.       set xfFontBoxSavedFont [lindex $result 4]
  117.     }
  118.   } {
  119.     set xfFontBoxSavedFont ""
  120.   }
  121.  
  122.   # look if there is already a font window
  123.   if {"[info commands .xfFontBox]" == ""} {
  124.     # build widget structure
  125.  
  126.     XFTmpltToplevel .xfFontBox 600x300 {XF font select}
  127.  
  128.     set xfFontBox(oldWidget) $xfFontBoxEntryW
  129.  
  130.     frame .xfFontBox.frame1 \
  131.       -borderwidth 0 \
  132.       -relief raised
  133.     catch ".xfFontBox.frame1 config $tmpFrameOpt"
  134.  
  135.     frame .xfFontBox.frame2 \
  136.       -borderwidth 2 \
  137.       -relief raised
  138.     catch ".xfFontBox.frame2 config $tmpFrameOpt"
  139.  
  140.     button .xfFontBox.frame1.ok \
  141.       -text "OK"
  142.     catch ".xfFontBox.frame1.ok config $tmpButtonOpt"
  143.  
  144.     button .xfFontBox.frame1.rescan \
  145.       -text "Rescan fonts" \
  146.       -command "
  147.         if {\"$xfFontBoxTmpFileFont\" != \"\"} {
  148.           catch \"exec xlsfonts > $xfFontBoxTmpFileFont\"
  149.           if {\[.xfFontBox.fonts.fonts size\] > 0} {
  150.             .xfFontBox.fonts.fonts delete 0 end
  151.           }
  152.           if {\[catch \"open $xfFontBoxTmpFileFont r\" fontInFile\]} {
  153.             if {\"\[info commands XFAlertBox\]\" != \"\"} {
  154.               XFAlertBox \"\$fontInFile\"
  155.             } {
  156.               puts stderr \"\$fontInFile\"
  157.             }
  158.           } {
  159.             set fontReadList \[read \$fontInFile\]
  160.             close \$fontInFile
  161.             foreach fontLine \[split \$fontReadList \"\\n\"\] {
  162.               if {\"\[string trim \$fontLine\]\" != \"\"} {
  163.                 .xfFontBox.fonts.fonts insert end \$fontLine
  164.               }
  165.             }
  166.           }
  167.         }"
  168.     catch ".xfFontBox.frame1.rescan config $tmpButtonOpt"
  169.  
  170.     button .xfFontBox.frame1.cancel \
  171.       -text "Cancel"
  172.     catch ".xfFontBox.frame1.cancel config $tmpButtonOpt"
  173.  
  174.     if {[info exists xfFontBox($xfFontBox(resource)-demo)]} {
  175.       label .xfFontBox.demo \
  176.         -relief raised \
  177.         -text $xfFontBox($xfFontBox(resource)-demo)
  178.     } {
  179.       label .xfFontBox.demo \
  180.         -relief raised \
  181.         -text "This text shows the results :-)"
  182.     }
  183.     catch ".xfFontBox.demo config $tmpMessageOpt"
  184.  
  185.     frame .xfFontBox.current \
  186.       -borderwidth 0 \
  187.       -relief raised
  188.     catch ".xfFontBox.current config $tmpFrameOpt"
  189.  
  190.     label .xfFontBox.current.labelcurrent \
  191.       -relief raised
  192.     catch ".xfFontBox.current.labelcurrent config $tmpMessageOpt"
  193.  
  194.     entry .xfFontBox.current.current \
  195.       -relief raised
  196.     catch ".xfFontBox.current.current config $tmpMessageOpt"
  197.  
  198.     frame .xfFontBox.fonts \
  199.       -borderwidth 0 \
  200.       -relief raised
  201.     catch ".xfFontBox.fonts config $tmpFrameOpt"
  202.  
  203.     scrollbar .xfFontBox.fonts.vscroll \
  204.       -relief raised \
  205.       -command ".xfFontBox.fonts.fonts yview"
  206.     catch ".xfFontBox.fonts.vscroll config $tmpScrollOpt"
  207.  
  208.     scrollbar .xfFontBox.fonts.hscroll \
  209.       -orient horiz \
  210.       -relief raised \
  211.       -command ".xfFontBox.fonts.fonts xview"
  212.     catch ".xfFontBox.fonts.hscroll config $tmpScrollOpt"
  213.  
  214.     listbox .xfFontBox.fonts.fonts \
  215.       -exportselection false \
  216.       -relief raised \
  217.       -xscrollcommand ".xfFontBox.fonts.hscroll set" \
  218.       -yscrollcommand ".xfFontBox.fonts.vscroll set"
  219.     catch ".xfFontBox.fonts.fonts config $tmpMessageOpt"
  220.  
  221.     # family menu
  222.     menubutton .xfFontBox.frame2.family \
  223.       -text "Family" \
  224.       -menu ".xfFontBox.frame2.family.m"
  225.     catch ".xfFontBox.frame2.family config $tmpButtonOpt"
  226.  
  227.     menu .xfFontBox.frame2.family.m
  228.     catch ".xfFontBox.frame2.family.m config $tmpButtonOpt"
  229.  
  230.     .xfFontBox.frame2.family.m add radiobutton \
  231.       -label "*" \
  232.       -value "*" \
  233.       -variable xfFontBox(fontFamily) \
  234.       -command "XFFontBoxComposeFont"
  235.     .xfFontBox.frame2.family.m add radiobutton \
  236.       -label "charter" \
  237.       -value "charter" \
  238.       -variable xfFontBox(fontFamily) \
  239.       -command "XFFontBoxComposeFont"
  240.     .xfFontBox.frame2.family.m add radiobutton \
  241.       -label "courier" \
  242.       -value "courier" \
  243.       -variable xfFontBox(fontFamily) \
  244.       -command "XFFontBoxComposeFont"
  245.     .xfFontBox.frame2.family.m add radiobutton \
  246.       -label "fixed" \
  247.       -value "fixed" \
  248.       -variable xfFontBox(fontFamily) \
  249.       -command "XFFontBoxComposeFont"
  250.     .xfFontBox.frame2.family.m add radiobutton \
  251.       -label "helvetica" \
  252.       -value "helvetica" \
  253.       -variable xfFontBox(fontFamily) \
  254.       -command "XFFontBoxComposeFont"
  255.     .xfFontBox.frame2.family.m add radiobutton \
  256.       -label "jis" \
  257.       -value "jis" \
  258.       -variable xfFontBox(fontFamily) \
  259.       -command "XFFontBoxComposeFont"
  260.     .xfFontBox.frame2.family.m add radiobutton \
  261.       -label "lucida" \
  262.       -value "lucida" \
  263.       -variable xfFontBox(fontFamily) \
  264.       -command "XFFontBoxComposeFont"
  265.     .xfFontBox.frame2.family.m add radiobutton \
  266.       -label "terminal" \
  267.       -value "terminal" \
  268.       -variable xfFontBox(fontFamily) \
  269.       -command "XFFontBoxComposeFont"
  270.     .xfFontBox.frame2.family.m add radiobutton \
  271.       -label "times" \
  272.       -value "times" \
  273.       -variable xfFontBox(fontFamily) \
  274.       -command "XFFontBoxComposeFont"
  275.  
  276.     # weight menu
  277.     menubutton .xfFontBox.frame2.weight \
  278.       -text "Weight" \
  279.       -menu ".xfFontBox.frame2.weight.m"
  280.     catch ".xfFontBox.frame2.weight config $tmpButtonOpt"
  281.  
  282.     menu .xfFontBox.frame2.weight.m
  283.     catch ".xfFontBox.frame2.weight.m config $tmpButtonOpt"
  284.  
  285.     .xfFontBox.frame2.weight.m add radiobutton \
  286.       -label "*" \
  287.       -value "*" \
  288.       -variable xfFontBox(fontWeight) \
  289.       -command "XFFontBoxComposeFont"
  290.     .xfFontBox.frame2.weight.m add radiobutton \
  291.       -label "bold" \
  292.       -value "bold" \
  293.       -variable xfFontBox(fontWeight) \
  294.       -command "XFFontBoxComposeFont"
  295.     .xfFontBox.frame2.weight.m add radiobutton \
  296.       -label "demibold" \
  297.       -value "demibold" \
  298.       -variable xfFontBox(fontWeight) \
  299.       -command "XFFontBoxComposeFont"
  300.     .xfFontBox.frame2.weight.m add radiobutton \
  301.       -label "medium" \
  302.       -value "medium" \
  303.       -variable xfFontBox(fontWeight) \
  304.       -command "XFFontBoxComposeFont"
  305.  
  306.     # Slant menu
  307.     menubutton .xfFontBox.frame2.slant \
  308.       -text "Slant" \
  309.       -menu ".xfFontBox.frame2.slant.m"
  310.     catch ".xfFontBox.frame2.slant config $tmpButtonOpt"
  311.  
  312.     menu .xfFontBox.frame2.slant.m
  313.     catch ".xfFontBox.frame2.slant.m config $tmpButtonOpt"
  314.  
  315.     .xfFontBox.frame2.slant.m add radiobutton \
  316.       -label "*" \
  317.       -value "*" \
  318.       -variable xfFontBox(fontSlant) \
  319.       -command "XFFontBoxComposeFont"
  320.     .xfFontBox.frame2.slant.m add radiobutton \
  321.       -label "i" \
  322.       -value "i" \
  323.       -variable xfFontBox(fontSlant) \
  324.       -command "XFFontBoxComposeFont"
  325.     .xfFontBox.frame2.slant.m add radiobutton \
  326.       -label "o" \
  327.       -value "o" \
  328.       -variable xfFontBox(fontSlant) \
  329.       -command "XFFontBoxComposeFont"
  330.     .xfFontBox.frame2.slant.m add radiobutton \
  331.       -label "r" \
  332.       -value "r" \
  333.       -variable xfFontBox(fontSlant) \
  334.       -command "XFFontBoxComposeFont"
  335.  
  336.     # Set width menu
  337.     menubutton .xfFontBox.frame2.swidth \
  338.       -text "Set width" \
  339.       -menu ".xfFontBox.frame2.swidth.m"
  340.     catch ".xfFontBox.frame2.swidth config $tmpButtonOpt"
  341.  
  342.     menu .xfFontBox.frame2.swidth.m
  343.     catch ".xfFontBox.frame2.swidth.m config $tmpButtonOpt"
  344.  
  345.     .xfFontBox.frame2.swidth.m add radiobutton \
  346.       -label "*" \
  347.       -value "*" \
  348.       -variable xfFontBox(fontSWidth) \
  349.       -command "XFFontBoxComposeFont"
  350.     .xfFontBox.frame2.swidth.m add radiobutton \
  351.       -label "normal" \
  352.       -value "normal" \
  353.       -variable xfFontBox(fontSWidth) \
  354.       -command "XFFontBoxComposeFont"
  355.     .xfFontBox.frame2.swidth.m add radiobutton \
  356.       -label "semicondensed" \
  357.       -value "semicondensed" \
  358.       -variable xfFontBox(fontSWidth) \
  359.       -command "XFFontBoxComposeFont"
  360.  
  361.     # pixels menu
  362.     menubutton .xfFontBox.frame2.pixels \
  363.       -text "Pixels" \
  364.       -menu ".xfFontBox.frame2.pixels.m"
  365.     catch ".xfFontBox.frame2.pixels config $tmpButtonOpt"
  366.  
  367.     menu .xfFontBox.frame2.pixels.m
  368.     catch ".xfFontBox.frame2.pixels.m config $tmpButtonOpt"
  369.  
  370.     .xfFontBox.frame2.pixels.m add radiobutton \
  371.       -label "*" \
  372.       -value "*" \
  373.       -variable xfFontBox(fontPixels) \
  374.       -command "XFFontBoxComposeFont"
  375.     .xfFontBox.frame2.pixels.m add radiobutton \
  376.       -label "6 pixels" \
  377.       -value "6" \
  378.       -variable xfFontBox(fontPixels) \
  379.       -command "XFFontBoxComposeFont"
  380.     .xfFontBox.frame2.pixels.m add radiobutton \
  381.       -label "8 pixels" \
  382.       -value "8" \
  383.       -variable xfFontBox(fontPixels) \
  384.       -command "XFFontBoxComposeFont"
  385.     .xfFontBox.frame2.pixels.m add radiobutton \
  386.       -label "10 pixels" \
  387.       -value "10" \
  388.       -variable xfFontBox(fontPixels) \
  389.       -command "XFFontBoxComposeFont"
  390.     .xfFontBox.frame2.pixels.m add radiobutton \
  391.       -label "12 pixels" \
  392.       -value "12" \
  393.       -variable xfFontBox(fontPixels) \
  394.       -command "XFFontBoxComposeFont"
  395.     .xfFontBox.frame2.pixels.m add radiobutton \
  396.       -label "13 pixels" \
  397.       -value "13" \
  398.       -variable xfFontBox(fontPixels) \
  399.       -command "XFFontBoxComposeFont"
  400.     .xfFontBox.frame2.pixels.m add radiobutton \
  401.       -label "14 pixels" \
  402.       -value "14" \
  403.       -variable xfFontBox(fontPixels) \
  404.       -command "XFFontBoxComposeFont"
  405.     .xfFontBox.frame2.pixels.m add radiobutton \
  406.       -label "16 pixels" \
  407.       -value "16" \
  408.       -variable xfFontBox(fontPixels) \
  409.       -command "XFFontBoxComposeFont"
  410.     .xfFontBox.frame2.pixels.m add radiobutton \
  411.       -label "18 pixels" \
  412.       -value "18" \
  413.       -variable xfFontBox(fontPixels) \
  414.       -command "XFFontBoxComposeFont"
  415.     .xfFontBox.frame2.pixels.m add radiobutton \
  416.       -label "24 pixels" \
  417.       -value "24" \
  418.       -variable xfFontBox(fontPixels) \
  419.       -command "XFFontBoxComposeFont"
  420.     .xfFontBox.frame2.pixels.m add radiobutton \
  421.       -label "28 pixels" \
  422.       -value "28" \
  423.       -variable xfFontBox(fontPixels) \
  424.       -command "XFFontBoxComposeFont"
  425.     .xfFontBox.frame2.pixels.m add radiobutton \
  426.       -label "30 pixels" \
  427.       -value "30" \
  428.       -variable xfFontBox(fontPixels) \
  429.       -command "XFFontBoxComposeFont"
  430.  
  431.     # read font file
  432.     if {"$xfFontBoxFileFont" != ""} {
  433.       if {[catch "open $xfFontBoxFileFont r" fontInFile]} {
  434.         set xfFontBoxFileFont ""
  435.         if {"[info commands XFAlertBox]" != ""} {
  436.           XFAlertBox "$fontInFile"
  437.         } {
  438.           puts stderr "$fontInFile"
  439.         }
  440.       } {
  441.         set fontReadList [read $fontInFile]
  442.         close $fontInFile
  443.         foreach fontLine [split $fontReadList "\n"] {
  444.           if {"[string trim $fontLine]" != ""} {
  445.             .xfFontBox.fonts.fonts insert end $fontLine
  446.           }
  447.         }
  448.       }
  449.     }
  450.   } {
  451.     if {"[winfo class $xfFontBox(oldWidget)]" == "Text"} {
  452.       catch "$xfFontBox(oldWidget) delete 1.0 end"
  453.       catch "$xfFontBox(oldWidget) insert 1.0 [.xfFontBox.current.current get]"
  454.     } {
  455.       if {"[winfo class $xfFontBox(oldWidget)]" == "Entry"} {
  456.         catch "$xfFontBox(oldWidget) delete 0 end"
  457.         catch "$xfFontBox(oldWidget) insert 0 [.xfFontBox.current.current get]"
  458.       }
  459.     }
  460.  
  461.     set xfFontBox(oldWidget) $xfFontBoxEntryW
  462.   }
  463.  
  464.   .xfFontBox.frame1.ok config \
  465.     -command "
  466.       global xfFontBox
  467.       set xfFontBox(fontName) \[.xfFontBox.current.current get\]
  468.       if {\"$xfFontBoxEntryW\" != \"\"} {
  469.         if {\"\[winfo class $xfFontBoxEntryW\]\" == \"Text\"} {
  470.           catch \"$xfFontBoxEntryW delete 1.0 end\"
  471.           catch \"$xfFontBoxEntryW insert 1.0 \\\"\$xfFontBox(fontName)\\\"\"
  472.         } {
  473.           if {\"\[winfo class $xfFontBoxEntryW\]\" == \"Entry\"} {
  474.             catch \"$xfFontBoxEntryW delete 0 end\"
  475.             catch \"$xfFontBoxEntryW insert 0 \\\"\$xfFontBox(fontName)\\\"\"
  476.           }
  477.         }
  478.       }
  479.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  480.         catch {XFDestroy .xfFontBox}
  481.       } {
  482.         catch {destroy .xfFontBox}
  483.       }"
  484.  
  485.   .xfFontBox.frame1.cancel config \
  486.     -command "
  487.       global xfFontBox
  488.       set xfFontBox(fontName) {}
  489.       if {\"$xfFontBoxTargetW\" != \"\"} {
  490.         catch \"$xfFontBoxTargetW config -$xfFontBox(resource) $xfFontBoxSavedFont\"
  491.       }
  492.       if {\"\[info commands XFDestroy\]\" != \"\"} {
  493.         catch {XFDestroy .xfFontBox}
  494.       } {
  495.         catch {destroy .xfFontBox}
  496.       }"
  497.  
  498.   .xfFontBox.current.labelcurrent config \
  499.     -text "$xfFontBoxResource:"
  500.  
  501.   # bindings
  502.   bind .xfFontBox.current.current <Return> "
  503.     XFFontBoxSetFont \"$xfFontBoxTargetW\""
  504.  
  505.   bind .xfFontBox.fonts.fonts <Double-1> "
  506.     XFFontBoxSelectFont %W \"$xfFontBoxTargetW\" %y
  507.     global xfFontBox
  508.     set xfFontBox(fontName) \[.xfFontBox.current.current get\]
  509.     if {\"$xfFontBoxEntryW\" != \"\"} {
  510.       if {\"\[winfo class $xfFontBoxEntryW\]\" == \"Text\"} {
  511.         catch \"$xfFontBoxEntryW delete 1.0 end\"
  512.         catch \"$xfFontBoxEntryW insert 1.0 \\\"\$xfFontBox(fontName)\\\"\"
  513.       } {
  514.         if {\"\[winfo class $xfFontBoxEntryW\]\" == \"Entry\"} {
  515.           catch \"$xfFontBoxEntryW delete 0 end\"
  516.           catch \"$xfFontBoxEntryW insert 0 \\\"\$xfFontBox(fontName)\\\"\"
  517.         }
  518.       }
  519.     }
  520.     if {\"\[info commands XFDestroy\]\" != \"\"} {
  521.       catch {XFDestroy .xfFontBox}
  522.     } {
  523.       catch {destroy .xfFontBox}
  524.     }"
  525.   bind .xfFontBox.fonts.fonts <ButtonPress-1> "
  526.     XFFontBoxSelectFont %W \"$xfFontBoxTargetW\" %y"
  527.   bind .xfFontBox.fonts.fonts <Button1-Motion> "
  528.     XFFontBoxSelectFont %W \"$xfFontBoxTargetW\" %y"
  529.   bind .xfFontBox.fonts.fonts <Shift-ButtonPress-1> "
  530.     XFFontBoxSelectFont %W \"$xfFontBoxTargetW\" %y"
  531.   bind .xfFontBox.fonts.fonts <Shift-Button1-Motion> "
  532.     XFFontBoxSelectFont %W \"$xfFontBoxTargetW\" %y"
  533.  
  534.   # set up current value
  535.   .xfFontBox.current.current delete 0 end
  536.   if {"$xfFontBoxEntryW" != ""} {
  537.     if {"[winfo class $xfFontBoxEntryW]" == "Text"} {
  538.       .xfFontBox.current.current insert 0 [$xfFontBoxEntryW get 1.0 end]
  539.     } {
  540.       if {"[winfo class $xfFontBoxEntryW]" == "Entry"} {
  541.         .xfFontBox.current.current insert 0 [$xfFontBoxEntryW get]
  542.       }
  543.     }
  544.   }
  545.  
  546.   # packing
  547.   pack append .xfFontBox.frame1 \
  548.               .xfFontBox.frame1.ok {left fill expand} \
  549.               .xfFontBox.frame1.rescan {left fill expand} \
  550.               .xfFontBox.frame1.cancel {left fill expand}
  551.   pack append .xfFontBox.frame2 \
  552.               .xfFontBox.frame2.family {left} \
  553.               .xfFontBox.frame2.weight {left} \
  554.               .xfFontBox.frame2.slant {left} \
  555.               .xfFontBox.frame2.swidth {left} \
  556.               .xfFontBox.frame2.pixels {left}
  557.   pack append .xfFontBox.current \
  558.               .xfFontBox.current.labelcurrent {left} \
  559.               .xfFontBox.current.current {left fill expand}
  560.   pack append .xfFontBox.fonts \
  561.               .xfFontBox.fonts.vscroll "$xfFontBox(scrollSide) filly" \
  562.               .xfFontBox.fonts.hscroll {bottom fillx} \
  563.               .xfFontBox.fonts.fonts {left fill expand}
  564.  
  565.   if {"$xfFontBoxFileFont" != ""} {
  566.     pack append .xfFontBox \
  567.                 .xfFontBox.frame1 {bottom fillx} \
  568.                 .xfFontBox.current {bottom fillx} \
  569.                 .xfFontBox.demo {bottom fillx} \
  570.                 .xfFontBox.frame2 {top fill} \
  571.                 .xfFontBox.fonts {left expand fill}
  572.   } {
  573.     wm geometry .xfFontBox 400x90
  574.     pack append .xfFontBox \
  575.                 .xfFontBox.frame1 {bottom fillx} \
  576.                 .xfFontBox.current {bottom fillx} \
  577.                 .xfFontBox.frame2 {top fill} \
  578.                 .xfFontBox.demo {bottom fill expand}
  579.   }
  580.   catch "wm deiconify .xfFontBox"
  581.  
  582.   if {"$xfFontBoxEntryW" == ""} {
  583.     # wait for the box to be destroyed
  584.     update idletask
  585.     grab .xfFontBox
  586.     tkwait window .xfFontBox
  587.  
  588.     return $xfFontBox(fontName)
  589.   }
  590. }
  591.  
  592. ##########
  593. # Procedure: XFFontBoxComposeFont
  594. # Description: set the font
  595. # Arguments: none
  596. # Returns: none
  597. # Sideeffects: none
  598. ##########
  599. proc XFFontBoxComposeFont {} {# xf ignore me 6
  600.   global xfFontBox
  601.   
  602.   if {"$xfFontBox(fontFamily)" != "*"} {
  603.     append fontNewFont * $xfFontBox(fontFamily)
  604.   } {
  605.     append fontNewFont *
  606.   }
  607.   if {"$xfFontBox(fontWeight)" != "*"} {
  608.     append fontNewFont - $xfFontBox(fontWeight)
  609.   } {
  610.     append fontNewFont - *
  611.   }
  612.   if {"$xfFontBox(fontSlant)" != "*"} {
  613.     append fontNewFont - $xfFontBox(fontSlant)
  614.   } {
  615.     append fontNewFont - *
  616.   }
  617.   if {"$xfFontBox(fontSWidth)" != "*"} {
  618.     append fontNewFont - $xfFontBox(fontSWidth)
  619.   } {
  620.     append fontNewFont - *
  621.   }
  622.   append fontNewFont - *
  623.   if {"$xfFontBox(fontPixels)" != "*"} {
  624.     append fontNewFont - $xfFontBox(fontPixels)
  625.   } {
  626.     append fontNewFont -
  627.   }
  628.   append fontNewFont *
  629.  
  630.   .xfFontBox.current.current delete 0 end
  631.   .xfFontBox.current.current insert 0 $fontNewFont
  632.   catch ".xfFontBox.demo config \
  633.     -$xfFontBox(resource) $fontNewFont"
  634. }
  635.  
  636. ##########
  637. # Procedure: XFFontBoxSelectFont
  638. # Description: select font for font composing
  639. # Arguments: xfFontBoxW - the widget
  640. #            xfFontBoxTargetW - the widget we configure
  641. #            xfFontBoxY - the y position in the listbox
  642. # Returns: none
  643. # Sideeffects: none
  644. ##########
  645. proc XFFontBoxSelectFont {xfFontBoxW xfFontBoxTargetW xfFontBoxY} {# xf ignore me 6
  646.  
  647.   set xfFontBoxNearest [$xfFontBoxW nearest $xfFontBoxY]
  648.   if {$xfFontBoxNearest >= 0} {
  649.     $xfFontBoxW select from $xfFontBoxNearest
  650.     $xfFontBoxW select to $xfFontBoxNearest
  651.     .xfFontBox.current.current delete 0 end
  652.     .xfFontBox.current.current insert 0 [$xfFontBoxW get $xfFontBoxNearest]
  653.     XFFontBoxSetFont "$xfFontBoxTargetW"
  654.   }
  655. }
  656.  
  657. ##########
  658. # Procedure: XFFontBoxSetFont
  659. # Description: set font for the widget
  660. # Arguments: xfFontBoxTargetW - the widget we configure
  661. # Returns: none
  662. # Sideeffects: none
  663. ##########
  664. proc XFFontBoxSetFont {xfFontBoxTargetW} {# xf ignore me 6
  665.   global xfFontBox
  666.  
  667.   if {"[.xfFontBox.current.current get]" != ""} {
  668.     catch ".xfFontBox.demo config -$xfFontBox(resource) \
  669.       [.xfFontBox.current.current get]"
  670.     if {"$xfFontBoxTargetW" != ""} {
  671.       catch "$xfFontBoxTargetW config -$xfFontBox(resource) \
  672.         [.xfFontBox.current.current get]"
  673.     }
  674.   }
  675. }
  676.  
  677. # eof
  678.  
  679.